10 REM *** MIDIBASIC EMPFANGSDEMO ***
20 REM
30 REM *** GIBT NOTENINFO UND SYSEX-
40 REM *** DATEN AUF DEM BILDSCHIRM AUS
50 REM
60 REM *** W     : WELLENFORM
70 REM *** A,K,V : EMPFANGENE DATEN
80 REM *** P     : PULSBREITE
90 REM *** S     : HILFSVAR. FUER PWM
100 REM
110 W=64
120 (null):(null) 15:(null) 1,0,0,15,0:(null) 1,W:(null) 1,16
130 (null):PRINT CHR$(14)
140 (null):P=1:S=0
150 A=USR(0)
160 IF S=0 THEN P=P+.25:IF P>15 THEN S=1
170 IF S=1 THEN P=P-.25:IF P< 1 THEN S=0:P=1
180 (null) 1,P*16
190 IF A=255 THEN 150
200 IF INT(A/16)=8 THEN K=USR(0):V=USR(0):PRINT"[206]OTEOFF  [203]EY"K"[214]EL"V:GOTO 350
210 IF INT(A/16)=9 THEN K=USR(0):V=USR(0):PRINT"[206]OTEON   [203]EY"K"[214]EL"V:GOTO 390
220 IF INT(A/16)<8 THEN K=A:V=USR(0):PRINT"         [203]EY"K"[214]EL"V
230 IF A>239 AND A<248 THEN PRINT"[211]YSTEM [197]XCLUSIVE":GOTO 280
240 GOTO150
250 REM
260 REM *** SYSEX ***
270 REM
280 Z=0
290 A=USR(0):IF A=255 THEN 290
300 IF A>127 THEN PRINT"[197]ND OF [211]YS[197]X, [210]ECEIVED [196]ATA:"Z"[194]YTES":GOTO 120
310 Z=Z+1:PRINT"[196]ATA   ";A:GOTO 290
320 REM
330 REM *** NOTEOFF ***
340 REM
350 FOR Z=1 TO 3:(null) Z,W:NEXT:GOTO 150
360 REM
370 REM *** NOTEON ***
380 REM
390 FOR Z=1 TO 3:IF K<95 THEN :(null) Z,K:(null) Z,W+1
400 GOTO 150